home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Generators / Palindrome / gen-palindrome
Text File  |  1998-10-23  |  536b  |  15 lines
  1. gen-palindrome pattern
  2.  
  3. This appends a retrograde of a pattern to itself, but without repeating the symbol common to the end of the original pattern and the beginning of the appended material.
  4.  
  5. (gen-palindrome '(a b c d e f g))
  6. --> (a b c d e f g f e d c a)
  7.  
  8. (gen-palindrome '(1/4 1/8 1/8 1/16))
  9. --> (1/4 1/8 1/8 1/16 1/8 1/8 1/4)
  10.  
  11. Use this with functions that have an incremental transposition sequence in order to reshape the output.
  12.  
  13. (gen-palindrome (gen-fibonacci 2 '(a b c) '(d e f g)))
  14. --> (a b c e f g h c d e d c h g f e c b a)
  15.